home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / editor / editor2 / textengn.lha / Textengine / TEM / article.tes next >
Text File  |  1996-12-23  |  736b  |  47 lines
  1. /* $VER: article.tes 1.0 (7.10.96) */
  2.  
  3. /* start */
  4.  
  5. options results
  6. parse arg n x y
  7. signal on syntax
  8. myhost=n||" '"||x||"'"
  9. interpret myhost
  10.  
  11. /* main */
  12.  
  13. 'GOTO BYTE=1'
  14. 'REPLACE STRING="<ARTICLE>" BY="<PREPROCESSEDart>" NEXT WILD=FALSE'
  15. 'GOTO LINE 2 COLUMN 1'
  16. 'QUERY LEN VAR VARX'
  17. if VARX<26 then do
  18.  'TEXT T="<HEAD>"'
  19.  'SMARTCR'
  20.  'QUERY NAME LEN VAR VARX'
  21.  if VARX>1 then do
  22.   'CR'
  23.   'TEXT T="<HEAD2>"'
  24.  end
  25.  else 'UP'
  26.  'GOTO EOL'
  27.  'TEXT T="<BREAK>"'
  28. end
  29. 'GOTO BOTTOM COLUMN=1'
  30. 'QUERY LINE VAR VARX'
  31. 'UP'
  32. 'FIND STRING="??(#((, ??)|(<*>)))" NEXT WILD=TRUE QUIET'
  33. 'QUERY LINE'
  34. if RESULT=VARX then do
  35.  'TEXT T="<NAME "'
  36.  'GOTO EOL'
  37.  'TEXT T=">"'
  38. end
  39.  
  40. /* end */
  41.  
  42. exit 0
  43.  
  44. syntax:
  45. say "Sorry, error line" SIGL ":" errortext(RC) ":-("
  46. exit 20
  47.